`forbak` <-
function(x)nocb(locf(x))

